home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / screenplay / utility / game_patches_for_hd / cannonfodder2 / install_cannon2 < prev    next >
Text File  |  1996-07-23  |  2KB  |  89 lines
  1. ; $VER: Cannon2 HD Install-Script V1.0 (30.12.94) by Jean-Francois Fabre
  2. ; Adapted from an installer from Sentinel
  3.  
  4. (set GameDir "CannonFodder2")
  5. (set TotalDisks 3)
  6. (set CurrentDisk 0)
  7. (set Percent 20)
  8. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  9. (set keuze 0)
  10.  
  11. ;try to figure out a place where the user usually installs his games
  12. (if (exists "Games:" (noreq) )
  13.     (set @default-dest "Games:")
  14.     (if (exists "SYS:Games" (noreq) )
  15.         (set @default-dest "SYS:Games")
  16.         (if (exists "Work:Games" (noreq) )
  17.             (set @default-dest "Work:Games")
  18.             (if (exists "JEUX:" (noreq) )
  19.                (set @default-dest "JEUX:")
  20.                (set @default-dest "SYS:")
  21.             )
  22.         )
  23.     )
  24. )
  25.  
  26. ;ask the user to select a directory to install the game into
  27. (set default-dest
  28.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  29.                              "A drawer called " GameDir " will be created.")
  30.                      (help @askdir-help)
  31.                      (default @default-dest)
  32.                      (newpath)
  33.              )
  34.      GameDir
  35.      )
  36. )
  37. (set @default-dest default-dest)
  38. (complete 5)
  39.  
  40. ;create the selected directory
  41. (makedir @default-dest
  42.          (infos)
  43. )
  44. (complete 10)
  45.  
  46. (message "\n\n\n\n\n\nPlease insert Cannon2 disk 1 in any drive"
  47. )
  48.  
  49. (copyfiles (source " :")
  50.            (dest @default-dest)
  51.            (all)
  52. )
  53.  
  54. (complete 30)
  55.  
  56. (message "\n\n\n\n\n\n\Please insert Cannon2 disk 2 in any drive"
  57. )
  58.  
  59. (copyfiles (source "cf2-2:")
  60.            (dest @default-dest)
  61.            (all)
  62. )
  63.  
  64. (complete 60)
  65.  
  66. (message "\n\n\n\n\n\nPlease insert Cannon2 disk 3 in any drive"
  67. )
  68.  
  69. (copyfiles (source "cf2-3:")
  70.            (dest @default-dest)
  71.            (all)
  72. )
  73. (complete 90)
  74.  
  75. ;copy all extra files to this directory
  76. (copyfiles (source "Cannon2")
  77.            (dest @default-dest)
  78. )
  79. (copyfiles (source "Cannon2.info")
  80.            (dest @default-dest)
  81. )
  82. (copyfiles (source "MAPM1.SPT")
  83.            (dest @default-dest)
  84. )
  85. (copyfiles (source "MAPM37.SPT")
  86.            (dest @default-dest)
  87. )
  88. (complete 100)
  89.